home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / misc / RScript_online.lha / RecentScript / Configs / AmFTP ARexx.extro next >
Encoding:
Text File  |  1999-01-26  |  154 b   |  16 lines
  1. IF oldport = "" THEN QUIT
  2. ELSE CLOSE
  3.  
  4. CALL CLOSEPORT resultport
  5. RETURN
  6.  
  7. OFF:
  8. ADDRESS MIAMI.1
  9.     OFFLINE
  10.  
  11. ADDRESS COMMAND 'c:wait 2'
  12.  
  13. ADDRESS MIAMI.1
  14.     QUIT
  15.  
  16.